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DIRECTORY 

AUoFileDefs: FROM "altof iledefs" , 
ImageDefs: FROM "imagedefs"; 

DiskKDDefs: DEFINITIONS = BEGIN 

Initial izeOiskKD: PROCEDURE; 

UpdateDiskKD: PROCEDURE; 

CloseDiskKD: PROCEDURE RETURNS [BOOLEAN]; 

CleanupDiskKD: ImageDefs .Clean up Procedure; 

NewSN: PROCEDURE RETURNS [sn: Al toFileDef s .SN] ; 

DIskFull : PUBLIC SIGNAL; 

AssignDiskPage: PROCEDURE [da: Al toFi leDef s . vDA] RETURNS [Al toFi leDef s . vDA] ; 

ReleaseDiskPage: PROCEDURE [v: Al toFileDef s.vDA] ; 

CountFreeDiskPages: PROCEDURE RETURNS [CARDINAL]; 

END. 


